home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / mail / 1st_101b.zip / 3-MAIL.SCR < prev    next >
Text File  |  1992-09-28  |  2KB  |  109 lines
  1. '
  2. '        Mail Door mail script for 1stReader
  3. '        For bbs systems using the MarkMail door
  4. '        Written by Michael Hahn
  5. '        September 27, 1992
  6.  
  7. CAPTURE ON
  8. TIMEOUT 30
  9.  
  10. LOOKFOR "correct? " "^M"
  11. LOOKFOR "elp, More? " "N^M"
  12. LOOKFOR "(Enter)=yes? " "N^M"
  13. LOOKFOR "Language #" "@LANGUAGE@^M"
  14. LOOKFOR ") to continue?" "^M"
  15. LOOKFOR "<CHAT>" "Sorry, I'm on automatic using 1stReader^M"
  16.  
  17. LOCKLINE 20 30
  18. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  19. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  20. COMMENT "@DATE@ @TIME@  Logging in to system"
  21.  
  22. WAITFOR "color|graphics" 20
  23. TRANSMIT "@GRAPHICS@ Q NS^M"
  24. WAITFOR "first name" 50
  25. IF FOUND=0 EXIT
  26. TRANSMIT "@USER@^M"
  27. WAITFOR "password|new user?" 30
  28. LOOKFOR "correct? " ""
  29. IF FOUND=1 GOTO LOGIN
  30. IF FOUND=2 GOTO NEWUSER
  31.  
  32. COMMENT "@DATE@ @TIME@  New user login"
  33. LOOKFOR "(Enter)=yes? " ""
  34. LOOKFOR ") to continue?" ""
  35. IF NOT SWITCH 1 HELP 198
  36. TERMINAL
  37. LOOKFOR "(Enter)=yes? " "N^M"
  38. LOOKFOR ") to continue?" "^M"
  39. GOTO DOOR
  40.  
  41. :NEWUSER
  42. COMMENT "@DATE@ @TIME@  New user login"
  43. LOOKFOR "(Enter)=yes? " ""
  44. LOOKFOR ") to continue?" ""
  45. IF NOT SWITCH 1 HELP 198
  46. TRANSMIT "^M"
  47. WAITFOR ")=yes?" 30
  48. TRANSMIT "Y^M"
  49. WAITFOR "please!)?" 30
  50. TRANSMIT "@PASSWORD@^M"
  51. WAITFOR "verify?" 30
  52. TRANSMIT "@PASSWORD@^M"
  53. TERMINAL
  54. LOOKFOR "(Enter)=yes? " "N^M"
  55. LOOKFOR ") to continue?" "^M"
  56. GOTO DOOR
  57.  
  58. :LOGIN
  59. COMMENT "@DATE@ @TIME@  Transmitting password"
  60. TRANSMIT "@PASSWORD@^M"
  61. WAITFOR "Command?"
  62. TIMEOUT 60
  63.  
  64. :DOOR
  65. COMMENT "@DATE@ @TIME@  Joining conference #@CONFERENCE@"
  66. TRANSMIT "J @CONFERENCE@ Q^M"
  67. WAITFOR "=yes?" 3
  68. IF FOUND=1 TRANSMIT "N^M"
  69. COMMENT "@DATE@ @TIME@  Opening Kmail Door"
  70. TRANSMIT "@QMAIL@^M"
  71. LOOKFOR ") to continue?" ""
  72.  
  73. :REPLIES
  74. IF NOT REPLIES GOTO DOWNLOAD
  75. COMMENT "@DATE@ @TIME@  Uploading replies"
  76. WAITFOR "Kmail Command?"
  77. TRANSMIT "U^M"
  78. WAITFOR "@BBSID@.REP"
  79. UPLOAD @REPDIR@@BBSID@.REP
  80. WAITFOR "successful"
  81. IF FOUND=1 GOTO GOODUPLD
  82. GOTO DOWNLOAD
  83.  
  84. :GOODUPLD
  85. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  86. KILL @REPDIR@@BBSID@.REP
  87. COUNT REP
  88.  
  89. :DOWNLOAD
  90. WAITFOR "Kmail Command?"
  91. TRANSMIT "D^M"
  92. WAITFOR  "Continue?|When Done?"
  93. IF FOUND=2 GOTO GETMAIL
  94. TRANSMIT "^M"
  95. WAITFOR  "Kmail Command?" 10
  96. TRANSMIT "G^M"
  97. GOTO EXIT
  98.  
  99. :GETMAIL
  100. TRANSMIT "G^M"
  101. WAITFOR "@BBSID@.QWK"
  102. DOWNLOAD @PACKETDIR@@BBSID@.QWK
  103. COUNT QWK
  104. PAUSE 5
  105.  
  106. :EXIT
  107. HANGUP
  108. CAPTURE OFF
  109.